home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / akcl1615.lha / doc / lfun < prev    next >
Text File  |  1987-12-06  |  2KB  |  44 lines
  1. The following functions are called frequently, and should probably
  2. be called via the c stack at least in some more cases.
  3.  
  4. Lappend
  5. Lcopy_list    (t) nil t  "copy_list(#0)"
  6. Lerror 'ifuncall
  7. Lfloat ;num_co.c rewrite it
  8. Lformat ;ifuncall
  9. Lfoundp ;rewrite
  10. Lgetf ; (t t t) nil nil "getf(#0,#1,#2)" 'inline-always
  11.       ;  (t t) nil nil "getf(#0,#1)"   'inline-always
  12. Lhash_table_p  (t) nil nil "type_of(#0)==t_hashtable"  'inline-always
  13. Lintern  ;rewrite.
  14. Llast ;rewrite
  15. Llog  (t t) nil t "number_log(#0,#1)" 'inline-always
  16. ;;number_zerop does check the args are numbers and it gets called on the args.
  17.  
  18. Lminus  (t) t nil "number_negate(#0)" 'inline-always
  19. Lminus  (t t) t nil "number_minus(#0,#1)" 'inline-always
  20.         ;;higher need a c1minus to fix it up.
  21. Lnconc ;; rewrite
  22. Loddp  (t) nil nil "number_oddp(#0)" 'inline-always
  23. Lplus  (t) nil nil "(#0)"
  24. Lplus  (t t) t nil "number_plus(#0,#1)" 'inline-always
  25.       ;;higher need c1plus...
  26. Lreconc ;;rewrite
  27. Lrem  ;;rewrite (second value of Ltruncate)
  28. Lset  ;;rewrite, could also have fast version
  29.    "@0;(type_of(#0)==t_symbol : (#0)->s.s_dbind=(#1) ? not_a_symbol(#0))"
  30.  
  31. Lsublis ;rewrite note sublis is NOT what want.  Need to do saving and so on
  32.        ;of the top level test, key, ...
  33. Lnsublis ;same as sublis
  34. subst ;same as sublis;same
  35. nsubst ;;same as sublis
  36. siLaset ;;(si::aset ar ind0 ind1 ... newvalue)
  37.    ??    (t fixnum t)  nil t "aset1(#0,#1,#2)"
  38.  
  39. siLhash_set (t t t) t t "@01;(sethash(#0,#1,#2),#2)" 'inline-unsafe
  40.    ;;should add a check its a table  and return for this.
  41.  
  42.  
  43.  
  44.